Top 10k strings from Polaris (1983)(CCS).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   8 B$=B$+K$((
   4 A$(X,Y)=" ":
   2 a$(x,y)=" ":
   2 A$(X-A,Y-A)-31
   2 A$(X-A,Y+A)-31
   2 A$(X-A,Y)-31
   2 A$(X,Y-A)-31
   2 A$(X,Y+A)-31
   2 A$(X,Y)="$"
   2 A$(X+A,Y-A)-31
   2 A$(X+A,Y+A)-31
   2 A$(X+A,Y)-31
   1 p=p+(d(n)*15
   1 p''"How far to go 
   1 f,p,m,i,t,c:
   1 d(y)=d(y)-
   1 d(x)=d(x)-
   1 d(n)=d(n)+1
   1 b$="Engines..Sonar....TorpedoesMissiles.Repair...Status...H.Q
   1 a$(v,w)="&":
   1 a$(v,w)="$"
   1 a$(v,w)=""""
   1 a$(v,w)="!"
   1 a$(v,w)=" ":
   1 a$(v,w)=" "
   1 a$(s1,s2)=
   1 a$(n,x)-31
   1 a$(S3,S4)="$"
   1 Z$=A$(X,Y):
   1 Z$="N NE ESES SW WNW"
   1 WAS CLOSE"
   1 W=W+(W<S2)-(W>S2):
   1 V=V+(V<S1)-(V>S1)
   1 T$="4D3D1D3D3G1F2F1D2D1D5D"
   1 SUB SUNK BY ENEMY DEPTH-CHARGES
   1 Repair impossible
   1 R$=" damage":
   1 POLARIS   $K
   1 P=P-P1*100
   1 NOT ENOUGH CREW TO FIRE MISSILESLAUNCH SEQUENCE ABORTED
   1 LAUNCH SEQUENCE ABORTED
   1 LAUNCH ABORTED
   1 How much to use ?
   1 G$="How much to use ?":
   1 ENOUGH FUEL TO FIRE MISSILE
   1 Depth charges to starboard
   1 Depth charges to port
   1 DAMAGE CRITICAL RADIO
   1 C$="!""#$%&":
   1 ABORT LAUNCH":
   1 A$(X,Y)=c$(n)
   1 A$(X,Y)="&":
   1 A$(X,Y)="&"
   1 A$(X,Y)="%"
   1 A$(X,Y)="#"
   1 A$(X,Y)="!"
   1 A$(X,Y)=" "
   1 A$(S1,S2)=""""
   1 A$(S1,S2)=" ":
   1 ;"TYPE RANGE (1-9)"
   1 ;"SW S SE"
   1 ;"Refit complete";
   1 ;"Press any key to continue"
   1 ;"Power=";p:
   1 ;"PUBLISHED BY   ";
   1 ;"POLARIS"
   1 ;"NW | NE";
   1 ;"Maximum power 6500 - excess lost":
   1 ;"Maximum fuel 3000 - excess lost":
   1 ;"MISSILE FUELLED ":
   1 ;"LAUNCHING";
   1 ;"LAUNCH SEQUENCE COMPLETE
   1 ;"Invalid skill level":
   1 ;"Fuel=";f:
   1 ;"FUELLING MISSILE "
   1 ;"Direction of launch 
   1 ;"COUNTDOWN COMMENCING
   1 ;"COPYRIGHT WARNING"
   1 ;"ALL SYSTEMS GO  "'"PRESS ~A~
   1 ;" W-*-E";
   1 .Sabotage.Converter"
   1 .=";f',"Crew
   1 ,,,,"CASES COMPUTER  SIMULATIONS LTD ":
   1 **YOU HIT YOURSELF**
   1 ));" left"
   1 (s2-s4))^2
   1 (s1-s3))^2
   1 ("Power=";p'g$),a
   1 ("Fuel=";f'g$;" ");a
   1 '''" You are at South ";s1;" , East ";s2
   1 ''"Your orders 
   1 '"YOU LOSE"'"With ";S;" ships"(1
   1 '"Another go ? (Y/N)"
   1 '"0 Orders"'"1 Movement"'"2 Sonar"'"3 Torpedoes"'"4 Missiles"'"5 Repair"'"6 Status"'"7 H.Q."'"8 Sabotage"'"9 Conversion":
   1 '" H.Q. is at South ";s3;" , East ";s4
   1 "will rigorously protect the copy":
   1 "software is strictly prohibited."
   1 "hiring, and  lending  of  this ":
   1 "You sailed straight into a pair of enemy divers"
   1 "You hit a mine":
   1 "You don't stand much chance now!"
   1 "You blasted an island!":
   1 "YOU RAN AGROUND !"
   1 "YOU RAMMED H.Q. !"
   1 "YOU RAMMED A SHIP !":
   1 "YOU HIT H.Q.
   1 "YOU BLASTED H.Q.":
   1 "Torpedo's range 
   1 "Torpedo's course 
   1 "Torpedo wasted on an island":
   1 "Torpedo lost"
   1 "Too few crew":
   1 "Too far to dock":
   1 "There are ";s;" ships":
   1 "The divers mistook a mine for   you! - one less diving team to  worry about!":
   1 "System";r$;"d-Repairing":
   1 "Skill level 1-5 ? ";n:
   1 "Silos empty":
   1 "Ships near=";sc'"Ships sunk=";z'"Men caught=";
   1 "Reactor dead - no power left -  sub sinks !":
   1 "Please note unauthorised copying":
   1 "No torpedoes":
   1 "No ships near":
   1 "No fuel":
   1 "Movement over, power=";
   1 "Moderate";r$:
   1 "Missile Lost":
   1 "MESSAGE GARBLED":
   1 "Light";r$:
   1 "IT WAS ";b$;" 
   1 "Hard luck - H.Q. deserted":
   1 "HEAVY DAMAGE":
   1 "Enemy divers neutralized":
   1 "Enemy divers got H.Q.":
   1 "Enemy divers found you!":
   1 "Damage","Status"
   1 "-right, of POLARIS.":
   1 "-=UPDATE=-":
   1 "(1) Fuel   
   1 "',"Enemy ships=";s',"Torpedoes..=";t',"Missiles...=";m',"Skill level=";sk
   1  your sub";
   1  mini-sub";
   1  a mine !"
   1  Power"''"(2) Power  
   1  MISSILE FIRING":
   1  1983  M.Fox "
   1  (1-3) ";z: